<script>on closeFieldput false into bg field "Drew Data"pass closeFieldend closeFieldon tabKeyput word 2 of the selectedLine into theLineif last char of bg field "Data" ≠ returnthen put return after bg field "Data"select after line theLine of bg field "Data"end tabKey</script>
</part>
<part>
<id>35</id>
<type>field</type>
<visible> <true /> </visible>
<dontWrap> <true /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <false /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <false /> </lockText>
<rect>
<left>395</left>
<top>204</top>
<right>475</right>
<bottom>256</bottom>
</rect>
<style>scrolling</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>right</textAlign>
<font>Geneva</font>
<textSize>9</textSize>
<textStyle>plain</textStyle>
<textHeight>12</textHeight>
<name>data</name>
<script>on closeFieldput false into bg field "Drew Data"pass closeFieldend closeFieldon tabKeyput word 2 of the selectedLine into theLineif last char of bg field "monthlabels" ≠ returnthen put return after bg field "monthlabels"select after line theLine of bg field "monthlabels"end tabKey</script>
</part>
<part>
<id>52</id>
<type>field</type>
<visible> <false /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <true /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <false /> </lockText>
<rect>
<left>0</left>
<top>327</top>
<right>103</right>
<bottom>342</bottom>
</rect>
<style>transparent</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>left</textAlign>
<font>Geneva</font>
<textSize>9</textSize>
<textStyle>plain</textStyle>
<textHeight>12</textHeight>
<name>graph rect</name>
<script></script>
</part>
<part>
<id>53</id>
<type>button</type>
<visible> <false /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>243</left>
<top>19</top>
<right>285</right>
<bottom>32</bottom>
</rect>
<style>shadow</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <false /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>left</textAlign>
<font>Geneva</font>
<textSize>9</textSize>
<textStyle>plain</textStyle>
<name>Units:</name>
<script></script>
</part>
<part>
<id>15</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>135</left>
<top>279</top>
<right>171</right>
<bottom>315</bottom>
</rect>
<style>shadow</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>25573</icon>
<textAlign>center</textAlign>
<font>Geneva</font>
<textSize>10</textSize>
<textStyle>bold</textStyle>
<name>report</name>
<script>on mouseUpvisual effect shrink to centergo card "data report"end mouseUp</script>
</part>
<part>
<id>11</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>306</left>
<top>298</top>
<right>347</right>
<bottom>318</bottom>
</rect>
<style>transparent</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <false /> </autoHighlight>
<sharedHighlight> <false /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>Column</name>
<script>on mouseUpglobal goGraphput the short name of me into goGraph-- Requires handler: goCardgoCardend mouseUp</script>
</part>
<part>
<id>14</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>306</left>
<top>317</top>
<right>348</right>
<bottom>336</bottom>
</rect>
<style>transparent</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <false /> </autoHighlight>
<sharedHighlight> <false /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>Pie</name>
<script>on mouseUpglobal goGraphput the short name of me into goGraph-- Requires handler: goCardgoCardend mouseUp</script>
</part>
<part>
<id>86</id>
<type>field</type>
<visible> <true /> </visible>
<dontWrap> <true /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <true /> </sharedText>
<fixedLineHeight> <true /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <true /> </lockText>
<rect>
<left>27</left>
<top>275</top>
<right>85</right>
<bottom>339</bottom>
</rect>
<style>transparent</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>left</textAlign>
<font>Geneva</font>
<textSize>9</textSize>
<textStyle>condense</textStyle>
<textStyle>bold</textStyle>
<textHeight>15</textHeight>
<name>read</name>
<script></script>
</part>
<part>
<id>12</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>306</left>
<top>276</top>
<right>347</right>
<bottom>297</bottom>
</rect>
<style>transparent</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <false /> </autoHighlight>
<sharedHighlight> <false /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>Fever</name>
<script>on mouseUpglobal goGraphput the short name of me into goGraph-- Requires handler: goCardgoCardend mouseUp</script>
</part>
<part>
<id>81</id>
<type>field</type>
<visible> <false /> </visible>
<dontWrap> <true /> </dontWrap>
<dontSearch> <true /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <false /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <false /> </lockText>
<rect>
<left>300</left>
<top>204</top>
<right>420</right>
<bottom>256</bottom>
</rect>
<style>scrolling</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>right</textAlign>
<font>Geneva</font>
<textSize>9</textSize>
<textStyle>plain</textStyle>
<textHeight>12</textHeight>
<name>quarterlabels</name>
<script>on closeFieldput false into bg field "Drew Data"pass closeFieldend closeFieldon tabKeyput word 2 of the selectedLine into theLineif last char of bg field "data2" ≠ returnthen put return after bg field "data2"select after line theLine of bg field "data2"end tabKey</script>
</part>
<part>
<id>74</id>
<type>field</type>
<visible> <false /> </visible>
<dontWrap> <true /> </dontWrap>
<dontSearch> <true /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <false /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <false /> </lockText>
<rect>
<left>402</left>
<top>204</top>
<right>475</right>
<bottom>256</bottom>
</rect>
<style>scrolling</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>right</textAlign>
<font>Geneva</font>
<textSize>9</textSize>
<textStyle>plain</textStyle>
<textHeight>12</textHeight>
<name>data2</name>
<script>on closeFieldput false into bg field "Drew Data"pass closeFieldend closeFieldon tabKeyput word 2 of the selectedLine into theLineif last char of bg field "quarterlabels" ≠ returnthen put return after bg field "quarterlabels"select after line theLine of bg field "quarterlabels"end tabKey</script>
</part>
<part>
<id>84</id>
<type>field</type>
<visible> <false /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <false /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <false /> </lockText>
<rect>
<left>300</left>
<top>204</top>
<right>412</right>
<bottom>256</bottom>
</rect>
<style>scrolling</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>right</textAlign>
<font>Geneva</font>
<textSize>9</textSize>
<textStyle>plain</textStyle>
<textHeight>12</textHeight>
<name>clientlabels</name>
<script>on closeFieldput false into bg field "Drew Data"pass closeFieldend closeFieldon tabKeyput word 2 of the selectedLine into theLineif last char of bg field "clientdata" ≠ returnthen put return after bg field "clientdata"select after line theLine of bg field "clientdata"end tabKey</script>
</part>
<part>
<id>34</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>441</left>
<top>271</top>
<right>512</right>
<bottom>315</bottom>
</rect>
<style>transparent</style>
<showName> <false /> </showName>
<highlight> <true /> </highlight>
<autoHighlight> <false /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>11216</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>About Graphs</name>
<script>on mouseUpput empty into bg fld "Graph Info"-- Requires handler: showInfoshowInfo not visible of bg field "Graph Info"if the hilite of me is false thenput bg fld "labels title"&&"-"&&bg fld "graph Title" into bg field "Graph Info"if the hilight of bg button "calendar" is true thenput empty into workTimerepeat with i =1 to the number of lines of bg fld "data"if line i of bg fld "data" is not empty then add 1 to workTimeend repeatput return&" • from "&item 2 of bg fld data3&" invoices" after bg field "Graph Info"put return&" • avg $/invoice: $"&(round of (((bg fld "total"/item 2 of bg fld data3)+.001)*100))/100 after bg field "Graph Info"put return&" • avg $/month: $"&(round of (((bg fld "total"/workTime)+.001)*100))/100 after bg field "Graph Info"put return&" • total income: $"&bg fld "total"after bg field "Graph Info"end ifif the hilight of bg button "quarter" is true thenput empty into workTimerepeat with i =1 to the number of lines of bg fld "data2"if line i of bg fld "data2" is not empty then add 1 to workTimeend repeatput return&" • from "&item 1 of bg fld data3&" invoices" after bg field "Graph Info"put return&" • avg $/invoice: $"&(round of (((bg fld "total"/item 1 of bg fld data3)+.001)*100))/100 after bg field "Graph Info"put return&" • avg $/quarter: $"&(round of (((bg fld "total"/workTime)+.001)*100))/100 after bg field "Graph Info"put return&" • total income: $"&bg fld "total"after bg field "Graph Info"end ifif the hilight of bg button "client" is true thenput empty into workTimeput return&" • from"&&number of lines of bg fld "clientdata"&&"invoices"after¬bg field "Graph Info"put return&" • avg $/invoice: $"&(round of (((bg fld "total"/number of lines of bg fld "clientdata")+.001)*100))/100 after¬bg field "Graph Info"put return&" • total"&&bg field "labels title2"&": $"&bg fld "total"after bg field "Graph Info"end ifend ifend mouseUp</script>
<script>on closeFieldput false into bg field "Drew Data"pass closeFieldend closeFieldon tabKeyput word 2 of the selectedLine into theLineif last char of bg field "clientlabels" ≠ returnthen put return after bg field "clientlabels"select after line theLine of bg field "clientlabels"end tabKey</script>
</part>
<part>
<id>64</id>
<type>field</type>
<visible> <true /> </visible>
<dontWrap> <true /> </dontWrap>
<dontSearch> <true /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <false /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <true /> </lockText>
<rect>
<left>458</left>
<top>204</top>
<right>509</right>
<bottom>256</bottom>
</rect>
<style>scrolling</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>right</textAlign>
<font>Geneva</font>
<textSize>9</textSize>
<textStyle>plain</textStyle>
<textHeight>12</textHeight>
<name>percents</name>
<script>on mouseWithinif the selectedField is not empty then exit mouseWithinget the scroll of last item of theFields()if it ≠ the scroll of first item of theFields() thenput the textHeight of last item of theFields() into baseLineSizelock screenrepeat with count = 1 to (number of items in theFields() - 1)set scroll of (item count of theFields()) to itend repeatunlock screenend ifend mouseWithinfunction theFieldsreturn "bg fld percents,bg fld data,bg fld data2,bg fld clientdata,bg fld monthlabels,bg fld quarterlabels,bg fld clientlabels"end theFields</script>
<script>on mouseDown-- Requires handler: doDragBtnset cursor to "Grab Hand"hide bg btn "GrowLegend"doDragBtn name of me,300,30,width of card window,height of card windowset botRight of bg btn "GrowLegend" to botRight of meshow bg btn "GrowLegend"end mouseDownon mouseup-- Requires handler: drawChartdrawChartend mouseup</script>
</part>
<part>
<id>51</id>
<type>button</type>
<visible> <false /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>386</left>
<top>153</top>
<right>402</right>
<bottom>169</bottom>
</rect>
<style>rectangle</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <false /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>27775</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>growLegend</name>
<script>on mouseDown-- Requires function handlers: validatedData,maxCharsset cursor to arrowset icon of me to "Inverse Grow Box"set style of me to rectangleset style of bg btn "Legend" to "rectangle"put the rect of bg btn "Legend" into frameRectput width of me div 2 into halfMyWidthput height of me div 2 into halfMyHeightif the short name of bg button id 82 is "Calendar" thenput number of lines of validatedData(bg field "data") into dataCountelseput number of lines of validatedData(bg field "data2") into dataCountend ifif the short name of bg button id 82 is "Calendar" thenput maxChars(stripReturns(bg field "monthlabels")) * 8 into maxLabelSizeelseput maxChars(stripReturns(bg field "quarterlabels")) * 8 into maxLabelSizeend ifput maxLabelSize + 70 into maxWidthput (dataCount * 17) + 20 into maxHeightput width of card window into cardWidthput height of card window into cardHeightrepeat until the mouse is upput the mouseLoc into newLocif item 1 of newLoc <= (item 1 of frameRect + maxWidth)then put item 1 of frameRect + (maxWidth - halfMyWidth) ¬into item 1 of newLocput min(item 1 of newLoc,cardWidth - halfMyWidth) ¬into item 1 of newLocif item 2 of newLoc <= (item 2 of frameRect + maxHeight)then put item 2 of frameRect + (maxHeight - halfMyHeight) ¬into item 2 of newLocput min(item 2 of newLoc,cardHeight - halfMyHeight) ¬into item 2 of newLocset loc of me to newLocput bottom of me into item 4 of frameRect -- new bottomput right of me into item 3 of frameRect -- new rightset rect of bg btn "Legend" to frameRectend repeatset icon of me to "Grow Box"set style of me to rectangleend mouseDownon mouseup-- Requires handlers: drawChartdrawChartend mouseup</script>
</part>
<part>
<id>46</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>5</left>
<top>28</top>
<right>509</right>
<bottom>200</bottom>
</rect>
<style>rectangle</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <false /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Geneva</font>
<textSize>10</textSize>
<textStyle>plain</textStyle>
<name>frame</name>
<script>on mouseDown-- Requires handler: doDragBtnset cursor to "Grab Hand"hide bg btn "Grow"doDragBtn name of me,3,3,width of card window,height of card windowset botRight of bg btn "Grow" to botRight of meshow bg btn "Grow"end mouseDownon mouseUp-- Requires handler: saveRect,drawChartsaveRectdrawChartend mouseUp</script>
</part>
<part>
<id>47</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>493</left>
<top>184</top>
<right>509</right>
<bottom>200</bottom>
</rect>
<style>rectangle</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <false /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>27775</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>grow</name>
<script>on mouseDownset cursor to arrowput 160 into maxWidthput 172 into maxHeightset icon of me to "Inverse Grow Box"set style of me to rectangleset style of bg btn "Frame" to rectangleput the rect of bg btn "Frame" into frameRectput width of me div 2 into halfMyWidthput height of me div 2 into halfMyHeightput width of card window into cardWidthput height of card window into cardHeightrepeat until the mouse is upput the mouseLoc into newLocif item 1 of newLoc <= (item 1 of frameRect + maxWidth)then put item 1 of frameRect + (maxWidth - halfMyWidth) ¬into item 1 of newLocput min(item 1 of newLoc,cardWidth - halfMyWidth) ¬into item 1 of newLocif item 2 of newLoc <= (item 2 of frameRect + maxHeight)then put item 2 of frameRect + (maxHeight - halfMyHeight) ¬into item 2 of newLocput min(item 2 of newLoc,cardHeight - halfMyHeight) ¬into item 2 of newLocset loc of me to newLocput bottom of me into item 4 of frameRect -- new bottomput right of me into item 3 of frameRect -- new rightset rect of bg btn "Frame" to frameRectend repeatset icon of me to "Grow Box"set style of me to rectangleend mouseDownon mouseup-- Requires handlers: saveRect,drawChartsaveRectdrawChartend mouseup</script>
</part>
<part>
<id>75</id>
<type>field</type>
<visible> <false /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <false /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <false /> </lockText>
<rect>
<left>213</left>
<top>33</top>
<right>283</right>
<bottom>48</bottom>
</rect>
<style>rectangle</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>left</textAlign>
<font>Geneva</font>
<textSize>9</textSize>
<textStyle>plain</textStyle>
<textHeight>12</textHeight>
<name>data3</name>
<script></script>
</part>
<part>
<id>82</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>5</left>
<top>292</top>
<right>31</right>
<bottom>309</bottom>
</rect>
<style>transparent</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <false /> </autoHighlight>
<sharedHighlight> <false /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>1015</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>Calendar</name>
<script>on mouseUpset the hilite of me to trueset the hilite of bg button "quarter" to falseset the hilite of bg button "client" to falsehide bg field "Graph Info"set hilite of bg button "About Graphs" to trueif the number of lines of bg fld "data">12 thenput "Income Over Two Year Period" into bg fld "labels title"put "during "&last word of line 1 of bg fld quarterlabels&" - "&last word of line 1 of bg fld quarterlabels+1 into bg fld "graph Title"elseput "Income by Year" into bg fld "labels title"put "during "&last word of line 1 of bg fld quarterlabels into bg fld "graph Title"end ifupdateTotalssend mouseUp to bg button "drawGraph"end mouseUp</script>
</part>
<part>
<id>87</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>5</left>
<top>308</top>
<right>31</right>
<bottom>323</bottom>
</rect>
<style>transparent</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <false /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>1015</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>quarter</name>
<script>on mouseUpset the hilite of me to trueset the hilite of bg button "calendar" to falseset the hilite of bg button "client" to falsehide bg field "Graph Info"set hilite of bg button "About Graphs" to trueif the number of lines of bg fld "data2">4 thenput "Quarterly Income Over Two Year Period" into bg fld "labels title"put last word of line 1 of bg fld quarterlabels&" - "&last word of line 1 of bg fld quarterlabels+1 into bg fld "graph Title"elseput "Quarterly Income" into bg fld "labels title"put "fiscal year"&&last word of line 1 of bg fld quarterlabels into bg fld "graph Title"end ifupdateTotalssend mouseUp to bg button "drawGraph"end mouseUp</script>
</part>
<part>
<id>88</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>5</left>
<top>322</top>
<right>31</right>
<bottom>337</bottom>
</rect>
<style>transparent</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <false /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>1015</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>client</name>
<script>on mouseUpset the hilite of me to trueset the hilite of bg button "quarter" to falseset the hilite of bg button "calendar" to falsehide bg field "Graph Info"set hilite of bg button "About Graphs" to trueput bg fld "labels title2" into bg fld "labels title"put bg fld "graph Title2" into bg fld "graph Title"updateTotalssend mouseUp to bg button "drawGraph"end mouseUp</script>
</part>
<part>
<id>90</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>492</left>
<top>204</top>
<right>509</right>
<bottom>220</bottom>
</rect>
<style>transparent</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>5655</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name></name>
<script>on mouseDownput the textHeight of item 1 of theFields() into baseLineSizeput the number of items in theFields() into numItemsrepeat until the mouse is upget (scroll of last item of theFields()) - baseLineSizelock screenrepeat with count = 1 to numItemsset scroll of (item count of theFields()) to itend repeatunlock screenend repeatend mouseDownfunction theFieldsreturn "bg fld percents,bg fld data,bg fld data2,bg fld clientdata,bg fld monthlabels,bg fld quarterlabels,bg fld clientlabels"end theFields</script>
</part>
<part>
<id>91</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>492</left>
<top>240</top>
<right>509</right>
<bottom>256</bottom>
</rect>
<style>transparent</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>5656</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name></name>
<script>on mouseDownput the textHeight of item 1 of theFields() into baseLineSizeput the number of items in theFields() into numItemsrepeat until the mouse is upget (scroll of last item of theFields()) + baseLineSizelock screenrepeat with count = 1 to numItemsset scroll of (item count of theFields()) to itend repeatunlock screenend repeatend mouseDownfunction theFieldsreturn "bg fld percents,bg fld data,bg fld data2,bg fld clientdata,bg fld monthlabels,bg fld quarterlabels,bg fld clientlabels"end theFields</script>
</part>
<part>
<id>92</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>96</left>
<top>279</top>
<right>132</right>
<bottom>315</bottom>
</rect>
<style>shadow</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>27697</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>home</name>
<script>on mouseUpset cursor to 4visual effect scroll down to blackvisual effect dissolvego stack "Home"set cursor to 1end mouseUp</script>
<script>on mouseUplock screengo background id 10307unlock screen with scroll updoMenu "Find..."end mouseUp</script>
</part>
<part>
<id>103</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>410</left>
<top>2</top>
<right>509</right>
<bottom>23</bottom>
</rect>
<style>transparent</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>about</name>
<script>on mouseUpAboutend mouseUp</script>
</part>
<part>
<id>105</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>300</left>
<top>2</top>
<right>405</right>
<bottom>23</bottom>
</rect>
<style>transparent</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>transfer data</name>
<script>on mouseUpglobal goGraph,IsCommonData,myData,theLabels,theTitle,theDataTitle,theUnitsanswer "Transfer the graph you're now veiwing and its data to Hypercards' Graph Maker™ stack?" with "cancel" or "OK"if it is "OK" thenput bg field "Units" into theUnitsif hilite of bg button "calendar" is true thenput bg fld "data" into myDataput bg fld "monthlabels" into theLabelsif the number of lines of bg fld "data">12 thenput "Income Over Two Year Period" into theDataTitleput "during "&last word of line 1 of bg fld quarterlabels&" - "&last word of line 1 of bg fld quarterlabels+1 into theTitleelseput "Income by Year" into theDataTitleput "during "&last word of line 1 of bg fld quarterlabels into theTitleend ifend ifif hilite of bg button "quarter" is true thenput bg fld "data2" into myDataput bg fld "quarterlabels" into theLabelsif the number of lines of bg fld "data2">4 thenput "Quarterly Income Over Two Year Period" into theDataTitleput last word of line 1 of bg fld quarterlabels&" - "&last word of line 1 of bg fld quarterlabels+1 into theTitleelseput "Quarterly Income" into theDataTitleput "fiscal year"&&last word of line 1 of bg fld quarterlabels into theTitleend ifend ifif hilite of bg button "client" is true thenput bg fld "labels title2" into theDataTitleput bg fld "graph Title2" into theTitleput bg fld "clientdata" into myDataput bg fld "clientlabels" into theLabelsend ifend ifif it is "cancel" then exit mouseUpanswer "When the data is transfered, which graph do you want to go to?" with "Column" or "Pie" or "Fever"go card it of stack "Graph Maker"doMenu "Copy Card"doMenu "Paste Card"put myData into bg field "data"put theLabels into bg field "Labels"put theDataTitle into bg field "Labels Title"put theTitle into bg field "Graph Title"put theUnits into bg field "units"send mouseUp to bg button "drawGraph"end mouseUp-- Requires handlers: resetDrawFlag,resetDataInfoput hilite of me into IsCommonDataif IsCommonData thenanswer "Replace the data on the other cards with the data on this card?" with "Cancel" or "OK" -- ∆if it is not "OK" then -- ∆put false into IsCommonDataset hilite of me to falseexit mouseUpend ifput bg field "Data" into theDataput bg field "Labels" into theLabelsput bg field "Labels Title" into theDataTitleput bg field "Graph Title" into theTitleput bg field "Units" into theUnitsresetDrawFlagelse resetDataInfo</script>
</part>
<part>
<id>107</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>492</left>
<top>219</top>
<right>509</right>
<bottom>241</bottom>
</rect>
<style>opaque</style>
<showName> <false /> </showName>
<highlight> <true /> </highlight>
<autoHighlight> <false /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>New Button</name>
<script></script>
</part>
<part>
<id>108</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>443</left>
<top>324</top>
<right>506</right>
<bottom>336</bottom>
</rect>
<style>transparent</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>21851</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>change quarter settings</name>
<script>on mouseUpqDtRend mouseUp</script>
</part>
<part>
<id>63</id>
<type>field</type>
<visible> <false /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <true /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <false /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <true /> </lockText>
<rect>
<left>221</left>
<top>204</top>
<right>509</right>
<bottom>271</bottom>
</rect>
<style>rectangle</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Geneva</font>
<textSize>9</textSize>
<textStyle>plain</textStyle>
<textHeight>12</textHeight>
<name>graph info</name>
<script>on mouseUp-- Requires handler: showInfoshowInfo not visible of bg field "Graph Info"end mouseUp</script>
</part>
<part>
<id>109</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>127</left>
<top>319</top>
<right>259</right>
<bottom>333</bottom>
</rect>
<style>transparent</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>print card</name>
<script>on mouseUpanswer "Print a copy of this graph?" with "no" or "OK"if it is "OK" then doMenu "Print Card"end mouseUp</script>
</part>
<part>
<id>110</id>
<type>field</type>
<visible> <true /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <true /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <false /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <true /> </lockText>
<rect>
<left>353</left>
<top>281</top>
<right>432</right>
<bottom>329</bottom>
</rect>
<style>rectangle</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Palatino</font>
<textSize>10</textSize>
<textStyle>condense</textStyle>
<textHeight>13</textHeight>
<name>you are...</name>
<script></script>
</part>
<part>
<id>111</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>355</left>
<top>283</top>
<right>430</right>
<bottom>298</bottom>
</rect>
<style>transparent</style>
<showName> <false /> </showName>
<highlight> <true /> </highlight>
<autoHighlight> <false /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name></name>
<script></script>
</part>
<content>
<layer>background</layer>
<id>37</id>
<text>Month</text>
</content>
<content>
<layer>background</layer>
<id>39</id>
<text>wombats</text>
</content>
<content>
<layer>background</layer>
<id>38</id>
<text>Population</text>
</content>
<content>
<layer>background</layer>
<id>86</id>
<text>by Calendarby Quarterby Client</text>
</content>
<name>Graphs</name>
<script>∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞This is adopted from the Hypercard 2.0 supplied stack GRAPH MAKER v1.0Ken Schles does not claim copyright or control over hypercard suppliedscripts. You might want to look at the original script for hints.∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞on openCardglobal IsCommonData,theData,theLabels,theTitle,theDataTitle,theUnitshide menubarget bg field "Graph Rect"set rect of bg btn "Frame" to line 1 of itset rect of bg btn "Grow" to line 2 of itput "Go To Graph..."&return&"Current graph:"&return&the short name of this card into bg fld "you are..."unlock screenif not bg field "Drew Data" thensend "drawChart" to this cardput true into bg field "Drew Data"end ifpass openCardend openCardon closeCardsaveRectshowInfo falsepass closeCardend closeCardon enterInFieldclick at the loc of bg btn "Drawgraph"end enterInFieldon enterKeyclick at the loc of bg btn "Drawgraph"end enterKey----- Misc ----------------------------------------------------on doDragBtn btnID,left,top,right,bottom-- drag a button within the card areaput (the clickH - item 1 of the loc of btnID) into horzStartput (the clickV - item 2 of the loc of btnID) into vertStartput width of btnID div 2 into horzOffsetput height of btnID div 2 into vertOffsetput horzOffset + left into cardLeftput vertOffset + top into cardTopput right - horzOffset into cardRightput bottom - vertOffset into cardBottomrepeat until the mouse is upput max(the mouseH - horzStart,cardLeft) into horzput min(horz,cardRight) into item 1 of newLocput max(the mouseV - vertStart,cardTop) into vertput min(vert,cardBottom) into item 2 of newLocset loc of btnID to newLocend repeatend doDragBtnon resetDrawFlagput "33769,14051,32617" into cardIdNumsput value(the target) into theDatarepeat with count = 1 to 4put false into bg field "Drew Data" of card id (item count of cardIDNums)end repeatend resetDrawFlagon showInfo showHideset visible of bg field "Graph Info" to showHideset hilite of bg btn "About Graphs" to not showHideend showInfo----- Utilities -----------------------------------------------on clearScreenchoose "Select Tool"doMenu "Select All"doMenu "Clear Picture"end clearScreenon setFont fontName,fontSize,fontAlignment,fontStyleif fontName is not empty then set textFont to fontNameif fontSize is not empty then set textSize to fontSizeif fontSize is not empty then set textheight to fontSizeif fontAlignment is not empty then set textAlign to fontAlignmentif fontStyle is not empty then set textStyle to fontStyleend setFonton saveRectput rect of bg btn "Frame" into line 1 of bg field "Graph Rect"put rect of bg btn "Grow" into line 2 of bg field "Graph Rect"end saveRectfunction stripReturns theTextrepeat until last char of theText ≠ returndelete last char of theTextend repeatreturn theTextend stripReturns----- Data Functions -----------------------------------------------function validatedData data,labelsput max(number of lines in data,number of lines in labels) into numDatarepeat with count = 1 to numDataif ((line count of data is not a number) or ¬(line count of data < 0) or (line count of data is empty))then put zero into line count of dataend repeatreturn dataend validatedDatafunction roundUp anyNumber-- rounds a number to the nearest value divisible by 10,100,1000, etcput trunc(anyNumber) into wholeNumberput (10^(length(wholeNumber) - 1)) into divisorif wholeNumber mod divisor = 0 then return wholeNumberelse return (trunc((wholeNumber/divisor) + 1)) * divisorend roundUpfunction rectWidth theRectreturn item 3 of theRect - item 1 of theRectend rectWidthfunction rectHeight theRectreturn item 4 of theRect - item 2 of theRectend rectHeightfunction getMaxValue dataListsort dataList descending numericreturn line 1 of dataListend getMaxValuefunction maxChars textListput 0 into longestrepeat with theLine = 1 to the number of lines in textListif length(line theLine of textList) > longestthen put length(line theLine of textList) into longestend repeatreturn longestend maxChars-----------------------percents/totalson closeFieldupdateTotalspass closeFieldend closeFieldon exitFieldupdateTotalspass exitFieldend exitFieldon updateTotalsset cursor to watchif the hilite of bg button "calendar" = true thenput validatedData(bg field "Data") into dataend ifif the hilite of bg button "quarter" = true thenput validatedData(bg field "Data2") into dataend ifif the hilite of bg button "client" = true thenput validatedData(bg field "clientdata") into dataend ifput totalValues(data) into dataTotalput dataTotal into bg field "Total"get calcPercents(data,dataTotal)put item 1 of it into bg field "Percents"put item 2 of it into bg field "Percent Total"end updateTotalsfunction calcPercents data,dataTotalput 0 into percentTotalput empty into percentListif dataTotal ≠ 0 thenrepeat with dataCount = 1 to number of lines of dataput (line dataCount of data / dataTotal) * 100 into thePercentput round(thePercent) && "%" into line dataCount of percentList -- ∆add thePercent to percentTotalend repeatelserepeat with dataCount = 1 to number of lines of dataput line dataCount of data & "%" into line dataCount of percentList -- ∆end repeatput dataTotal into percentTotalend ifreturn percentList & "," & percentTotal & "%" -- ∆end calcPercentsfunction totalValues dataput 0 into total -- initialize the totalrepeat with lineNum = 1 to number of lines of dataput line lineNum of data into theLineif theLine is empty then next repeatget the value of theLineif character 1 of it is not in "1234567890-.()" then next repeatadd it to totalend repeatreturn totalend totalValueson hideShowif the hilite of bg button "calendar" is true thenshow bg fld "data"hide bg fld "data2"hide bg fld "clientdata"show bg fld "monthlabels"hide bg fld "quarterlabels"hide bg fld "clientlabels"end ifif the hilite of bg button "quarter" is true thenshow bg fld "data2"hide bg fld "data"hide bg fld "clientdata"show bg fld "quarterlabels"hide bg fld "monthlabels"hide bg fld "clientlabels"end ifif the hilite of bg button "client" is true thenshow bg fld "clientdata"hide bg fld "data"hide bg fld "data2"show bg fld "clientlabels"hide bg fld "monthlabels"hide bg fld "quarterlabels"end ifend hideShow</script>
